home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / title demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  83 lines
  1. 10 ;*********************************
  2. 11 ;*                               *
  3. 12 ;* giga-ass grafik-routinen demo *
  4. 13 ;* ----------------------------- *
  5. 14 ;*                               *
  6. 15 ;* achtung: vor assemblieren     *
  7. 16 ;* muessen zwei voraussetzungen  *
  8. 17 ;* erfuellt sein:                *
  9. 18 ;*                               *
  10. 19 ;* 1. der objektcode der grafik- *
  11. 20 ;* routinen muss in den speicher *
  12. 21 ;* geladen worden sein.          *
  13. 22 ;*                               *
  14. 23 ;* 2. das makro merge-file muss  *
  15. 24 ;* mit dem "m" befehl an diesen  *
  16. 25 ;* quelltext angehaengt worden   *
  17. 26 ;* sein.                         *
  18. 27 ;*                               *
  19. 28 ;*********************************
  20. 100 +$7000
  21. 110 usrtitel
  22. 120 titel designclose3
  23. 130  clear
  24. 140  linescloselnt1
  25. 150  linescloselnt2
  26. 160  linescloselnt3
  27. 170  colorclose$f0
  28. 180  borderclose0
  29. 190  pageclose3
  30. 200  fillclose109,140
  31. 210  fillclose120,198
  32. 220  fillclose148,181
  33. 230  fillclose249,116
  34. 240  fillclose200,131
  35. 250  fillclose240,141
  36. 260  fillclose250,155
  37. 270  fillclose265,140
  38. 280  fillclose275,151
  39. 290  fillclose215,170
  40. 300  fillclose177,179
  41. 310  linesccloselnt4
  42. 320  linesccloselnt5
  43. 330  textcloset1,3,8,2,3,0,$ff
  44. 340  textcloset2,7,8,0,0,1,1
  45. 350  frameclose36,12,288,75
  46. 360  frameclose41,15,283,72
  47. 370  fillclose38,42
  48. 380  fillclose285,42
  49. 390  textcloset3,11,5,0,1,1,$ff
  50. 400  textcloset4,16,6,0,0,0,3
  51. 410  circleclose52,131,7
  52. 420  textcloset5,14,5,0,0,0,3
  53. 430  textcloset6,24,29,0,0,0,3
  54. 440  spacewait
  55. 450  off
  56. 460  (NULL)
  57. 470 t1 not"giga-ass"
  58. 480 t2 not"[199]rafik-[210]outinen fuer [195]64"
  59. 490 t3 not"programmiert von [212]homas [196]achsel"
  60. 500 t4 not"c 1988"
  61. 510 t5 not"markt & technik"
  62. 520 t6 not"<space>"
  63. 530 lnt1 fn70,0,140,250,0,115
  64. 540  fn5,1,123,35,1,160
  65. 550  fn120,0,199,90,0,155
  66. 560  fn70,0,140,70,0,165
  67. 570  fn120,0,214,35,1,172
  68. 580  fn35,1,160,0,$ff,0
  69. 590 lnt2 fn152,0,181,220,0,167
  70. 600  fn217,0,163,247,0,157
  71. 610  fn225,0,135,110,0,153
  72. 620  fn131,0,181,150,0,178
  73. 630  fn152,0,181,0,$ff,0
  74. 640 lnt3 fn240,0,132,253,0,130
  75. 650  fn15,1,152,3,1,154
  76. 660  fn240,0,132,0,$ff,0
  77. 670 lnt4 fn94,0,153,4,1,126
  78. 680  fn31,1,159,122,0,196
  79. 690  fn94,0,153,0,$ff,0
  80. 700 lnt5 fn78,0,141,248,0,117
  81. 710  fn253,0,120,85,0,146
  82. 720  fn78,0,141,0,$ff,0
  83.